home *** CD-ROM | disk | FTP | other *** search
/ Winzipper / Winzipper_ISO.iso / internet / net commander 1.0 / ISP / SCRPTLST / ALBNYNET.CMD < prev    next >
Encoding:
Text File  |  1996-02-14  |  775 b   |  48 lines
  1. #        ALBANY NET TRUMPET WINSOCK LOGIN.CMD FILE
  2. #
  3. # set up some strings for dialling up
  4. #
  5. if ![load $number]
  6.   if [query $number "Enter your dial up phone number"]
  7.     save $number
  8.   end
  9. end
  10. $loginprompt = "ogin:"
  11.  
  12. load $modeminit
  13.  
  14. %attempts = 10
  15. #
  16. #
  17. #----------------------------------------------------------
  18. #
  19. # initialize modem
  20. #
  21. output $modeminit\13
  22.  
  23. if ! [input 10 OK\n]
  24.   display "Modem is not responding"\n
  25.   abort
  26. end
  27.  
  28. #
  29. # send phone number
  30. #
  31. %n = 0
  32. repeat
  33.   if %n = %attempts
  34.     display "Too many dial attempts"\n
  35.     abort
  36.   end
  37.   output "atd"$number\13
  38.   %ok = [input 60 CONNECT]
  39.   %n = %n + 1
  40. until %ok
  41. input 10 \n
  42. #
  43. #  wait for the login prompt
  44. #
  45. input 30 $loginprompt
  46. #
  47. # We're finished. PAP takes over from here.
  48. #